clc;clear;

R_per_km = 0.16;
L_in_km = 400;
Phase_current = 100;
Number_of_lines_in_the_phase = 2;

%---------------------------------------

R = R_per_km*L_in_km;

one_Line_current = Phase_current/Number_of_lines_in_the_phase;

Power_in_one_line = (one_Line_current^2)*(R);

Power_total = Power_in_one_line*3*Number_of_lines_in_the_phase